home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Hyperj-Hz / HYPWRT2.cpt / Address Button / card_2940.txt < prev    next >
Text File  |  1988-04-03  |  4KB  |  150 lines
  1. -- card: 2940 from stack: in
  2. -- bmap block id: 3138
  3. -- flags: 0000
  4. -- background id: 2757
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: 0004
  11. -- rect: left=39 top=78 right=112 bottom=78
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 1005 / 1005
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: display
  20. ----- HyperTalk script -----
  21. on mouseUp
  22. end mouseUp
  23.  
  24.  
  25.  
  26.  
  27. -- part 3 (field)
  28. -- low flags: 01
  29. -- high flags: 0000
  30. -- rect: left=88 top=63 right=257 bottom=505
  31. -- title width / last selected line: 0
  32. -- icon id / first selected line: 0 / 0
  33. -- text alignment: 0
  34. -- font id: 0
  35. -- text size: 12
  36. -- style flags: 0
  37. -- line height: 16
  38. -- part name: 
  39.  
  40.  
  41. -- part 5 (button)
  42. -- low flags: 00
  43. -- high flags: A003
  44. -- rect: left=118 top=274 right=315 bottom=416
  45. -- title width / last selected line: 0
  46. -- icon id / first selected line: 0 / 0
  47. -- text alignment: 1
  48. -- font id: 0
  49. -- text size: 12
  50. -- style flags: 0
  51. -- line height: 16
  52. -- part name: GO!
  53. ----- HyperTalk script -----
  54. on mouseUp
  55.   set cursor to 4
  56.   set lockScreen to True
  57.   show button "HyperWrite Link"
  58.   choose button tool
  59.   get location of button "HyperWrite Link"
  60.   click at it
  61.   doMenu "copy button"
  62.   hide button "HyperWrite Link"
  63.   put empty into message box
  64.   go "Address"
  65.   doMenu "Background"
  66.   doMenu "paste button"
  67.  
  68.   doMenu "Background"
  69.   choose browse tool
  70.  
  71.   set lockScreen to False
  72.   answer "HyperWrite Link button installed!"
  73. end mouseUp
  74.  
  75.  
  76.  
  77. -- part 6 (button)
  78. -- low flags: 80
  79. -- high flags: 2004
  80. -- rect: left=467 top=30 right=64 bottom=506
  81. -- title width / last selected line: 0
  82. -- icon id / first selected line: 1005 / 1005
  83. -- text alignment: 1
  84. -- font id: 0
  85. -- text size: 12
  86. -- style flags: 0
  87. -- line height: 16
  88. -- part name: HyperWrite Link
  89. ----- HyperTalk script -----
  90. on mouseUp
  91.   global Address1
  92.   global Address2
  93.   global Address3
  94.   global Address4
  95.   put line 1 of field "Name and Address" into Address1
  96.   put line 2 of field "Name and Address" into Address2
  97.   put line 3 of field "Name and Address" into Address3
  98.   put line 4 of field "Name and Address" into Address4
  99.   hide message box
  100.   go "HyperWrite"
  101.   if field "Title" is not "<<untitled>>"
  102.   then
  103.   MakeSure
  104. else
  105.   goAhead
  106. end if
  107. end mouseUp
  108.  
  109. on makeSure
  110.   Answer "Document is not new. Add address anyway?" with "OK" or "Cancel"
  111.   If it is "OK" then goAhead
  112. end makeSure
  113.  
  114.  
  115. on goAhead
  116.   set cursor to 4
  117.   set lockScreen to true
  118.   global Address1
  119.   global Address2
  120.   global Address3
  121.   global Address4
  122.  
  123.   click at 450,5
  124.   click at 4,41
  125.   set cursor to 4
  126.   type return
  127.   type "                                                                                     "
  128.   doMenu "Paste Text"
  129.   type return
  130.   type return
  131.  
  132.   put Address1 into line 4 of field "Text"
  133.   put Address2 into line 5 of field "Text"
  134.   put Address3 into line 6 of field "Text"
  135.   put Address4 into line 7 of field "Text"
  136.   put "Dear " into line 9 of field "Text"
  137.   set lockscreen to false
  138.   set cursor to 1
  139. end goAhead
  140.  
  141.  
  142.  
  143.  
  144. -- part contents for card part 3
  145. ----- text -----
  146. Pressing the GO! button below will put a new button on your address stack to make it integrate with HyperWrite. You can sort, find, and browse through your names and addresses as always, but when you click on your new button, it will take the name and address on the last card you looked at and put that name and address in a new HyperWrite document. If you‚Äôre using an address stack other than the one Apple provides with HyperCard, you can probably modify this button to work with it. See HyperWrite‚Äôs instructions for more information. Contact me if you need help. 
  147.  
  148. Scott Harris, CompuServe 73717,1162; GEnie SCOTT.HARRIS
  149.  
  150.